perm filename PRNTIM[CRE,BGB] blob
sn#069847 filedate 1973-11-07 generic text, type T, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
RECORD PAGE DESCRIPTION
00001 00001
00002 00002 TITLE PRNTIM
00004 ENDMK
⊗;
TITLE PRNTIM
OPDEF GO[JRST]
SA: SETZ 1,
L1: MOVEI 2,=64↔MSTIME↔MOVEM TIMES(1)↔AOS 1
L2: SOJGE 2,L2
CAIE 1,=64↔GO L1
SETZ 10,
L3: MOVE TIMES(10)↔AOS 10
MOVE 2,[POINT 7,3,-1]
IDIV[=36000000]↔IORI 60↔IDPB 2↔MOVE 1 ;TENS OF HOURS.
IDIV[=3600000 ]↔IORI 60↔IDPB 2↔MOVE 1 ;ONES OF HOURS.
MOVEI 1,":"↔IDPB 1,2 ;COLON
IDIV[=600000]↔IORI 60↔IDPB 2↔MOVE 1 ;TENS OF MINUTES.
IDIV[=60000 ]↔IORI 60↔IDPB 2↔MOVE 1 ;ONES OF MINUTES.
MOVEI 1,":"↔IDPB 1,2 ;COLON
IDIVI =10000↔IORI 60↔IDPB 2↔MOVE 1 ;TENS OF SECONDS.
IDIVI =1000↔ IORI 60↔IDPB 2↔MOVE 1 ;ONES OF SECONDS.
MOVEI 1,"."↔IDPB 1,2 ;DECIMAL
IDIVI =100↔IORI 60↔IDPB 2↔MOVE 1 ;HUNDS OF MILLISEC.
IDIVI =10 ↔IORI 60↔IDPB 2↔MOVE 1 ;TENS OF MILLISEC.
MOVEI 15↔IDPB 2
MOVEI 12↔IDPB 2
MOVEI 00↔IDPB 2
OUTSTR 3
CAIE 10,=64↔GO L3
INCHRW
JRST SA
TIMES: BLOCK =64
END SA